home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / tcp_fsm.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  815 b   |  31 lines
  1. if (!defined &_TCP_FSM) {
  2.     eval 'sub _TCP_FSM {1;}';
  3.     eval 'sub TCP_NSTATES {11;}';
  4.     eval 'sub TCPS_CLOSED {0;}';
  5.     eval 'sub TCPS_LISTEN {1;}';
  6.     eval 'sub TCPS_SYN_SENT {2;}';
  7.     eval 'sub TCPS_SYN_RECEIVED {3;}';
  8.     eval 'sub TCPS_ESTABLISHED {4;}';
  9.     eval 'sub TCPS_CLOSE_WAIT {5;}';
  10.     eval 'sub TCPS_FIN_WAIT_1 {6;}';
  11.     eval 'sub TCPS_CLOSING {7;}';
  12.     eval 'sub TCPS_LAST_ACK {8;}';
  13.     eval 'sub TCPS_FIN_WAIT_2 {9;}';
  14.     eval 'sub TCPS_TIME_WAIT {10;}';
  15.     eval 'sub TCPS_HAVERCVDSYN {
  16.         local($s) = @_;
  17.         eval "(($s) >=  &TCPS_SYN_RECEIVED)";
  18.     }';
  19.     eval 'sub TCPS_HAVERCVDFIN {
  20.         local($s) = @_;
  21.         eval "(($s) >=  &TCPS_TIME_WAIT)";
  22.     }';
  23.     if (defined &TCPOUTFLAGS) {
  24.     }
  25.     if (defined &KPROF) {
  26.     }
  27.     if (defined &TCPSTATES) {
  28.     }
  29. }
  30. 1;
  31.